home *** CD-ROM | disk | FTP | other *** search
/ Freelog Special Freeware 31 / FreelogHS31.iso / ArgentCompta / FASTCOMPTA / Setup FASTCOMPTA.exe / {app} / Patch FastCompta 1.sql < prev    next >
Text File  |  2006-12-20  |  461b  |  21 lines
  1. ALTER PROCEDURE EFF_MOUVEMENT (
  2.     INDEX_MVT INTEGER)
  3. RETURNS (
  4.     EFF_OK SMALLINT)
  5. AS
  6. DECLARE VARIABLE N INTEGER;
  7. BEGIN
  8. SELECT VERROU FROM MOUVEMENTS WHERE INDX=:INDEX_MVT INTO :N;
  9. if (N=0) then
  10.   SELECT COUNT(*) FROM LIGNES WHERE INDX_MVT=:INDEX_MVT AND LETTRAGE IS NOT NULL INTO :N;
  11. IF (N<>0) THEN EFF_OK=0; ELSE
  12.   BEGIN
  13.   EFF_OK=1;
  14.   DELETE FROM MOUVEMENTS WHERE INDX=:INDEX_MVT;
  15.   END
  16. SUSPEND;
  17. END
  18. ;
  19.  
  20. SET GENERATOR VERSION_BASE TO 1;
  21.